home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / disksalviv.dms / disksalviv.adf / Install < prev    next >
Text File  |  1995-12-18  |  4KB  |  105 lines
  1. ;======================================================================
  2. ;
  3. ; DiskSalv general installer -- $VER: Install 13.0 (24.11.95)
  4. ;
  5. ; 13.0    Moved stuff around for DiskSalv 4 support.
  6. ;
  7. ; 12.0    Moved stuff around for DiskSalv 4 support.
  8. ;
  9. ; 11.5    Added updates for DiskSalv V11.30 distribution, mainly support
  10. ;    for the additional locale files.
  11. ; 11.4    Simple updates for DiskSalv V11.28
  12. ;    Fixed the install-locale-from-archive routine
  13. ; 11.3    Added better checks for the existance of the locales archive
  14. ;
  15. ;======================================================================
  16. ;
  17. ; Some basic strings
  18.  
  19. (set #disksalv-install 
  20.      (cat "\nInstall DiskSalv 4\n"
  21.           "\nYou may install the DiskSalv program and related "
  22.           "files in the directory of your choice.  Proceed?"))
  23.  
  24. (set #disksalv-install-help
  25.      (cat "\nThis section lets you choose in which drawer or on "
  26.           "which disk the DiskSalv 4 program will be installed."
  27.           "\n\nIf you choose to proceed, you will be asked where you "
  28.           "want the DiskSalv files placed.  If you choose "
  29.           "to skip this part, you will go to the portion of the "
  30.           "installation that processes language installations".))
  31.  
  32. (set #which-disk
  33.      "In which disk or drawer should DiskSalv 4 be installed?")
  34.  
  35. (set #docs-install
  36.      (cat "\nInstall DiskSalv 4 Documentation\n"
  37.           "\nThe AmigaGuide Interactive Manual for DiskSalv can be"
  38.       "\ninstalled in the directory of your choice.  Proceed?"))
  39.  
  40. (set #docs-install-help
  41.      (cat "\nThis section lets you choose in which drawer or on "
  42.           "which disk the DiskSalv 4 interactive manual will be installed. "
  43.       "In most cases, it should be installed in the same directory "
  44.       "as the DiskSalv 4 program, or along the AmigaGuide standard"
  45.       "path."
  46.           "\n\nIf you choose to proceed, you will be asked where you "
  47.           "want the DiskSalv documents placed.  If you choose "
  48.           "to skip this part, installation is complete."))
  49.  
  50. (set #docs-where
  51.      (cat "\nIn which disk or drawer should DiskSalv interactive "
  52.           "documentation be installed?"))
  53.  
  54. (set #dsdocname      "DiskSalv.guide")
  55.  
  56. ;======================================================================
  57. ;
  58. ; The main program
  59.  
  60. (set inputdir          (pathonly @icon))
  61. (set @default-dest     "SYS:Tools")
  62.  
  63. ; First, install the DiskSalv program proper.
  64.  
  65. (if (askbool (prompt #disksalv-install)
  66.              (help #disksalv-install-help)
  67.              (choices "Yes" "Skip This Part")
  68.              (default 1))
  69.  
  70.     ((set outputdir 
  71.           (askdir (prompt  #which-disk)
  72.           (help    @askdir-help)
  73.           (default @default-dest)))
  74.      (set @default-dest outputdir)
  75.      (copyfiles (source inputdir)
  76.                 (dest outputdir)
  77.                 (pattern "DiskSalv")
  78.                 (files)
  79.                 (infos))
  80.      (tooltype  (dest (tackon outputdir "DiskSalv"))
  81.                 (noposition))))
  82.  
  83. ; Next, how about the DiskSalv docs.
  84.  
  85. (if (askbool (prompt #docs-install)
  86.          (help #docs-install-help)
  87.          (choices "Yes" "Skip This Part")
  88.          (default 1))
  89.  
  90.     ((set outputdir
  91.           (askdir (prompt  #which-disk)
  92.           (help    @askdir-help)
  93.           (default @default-dest)))
  94.      (set @default-dest outputdir)
  95.      (copyfiles (source inputdir)
  96.                 (dest outputdir)
  97.                 (pattern "DiskSalv.guide")
  98.                 (files)
  99.                 (infos))
  100.      (tooltype  (dest (tackon outputdir "DiskSalv.guide"))
  101.                 (noposition)))
  102.     (set @default-dest ""))
  103.  
  104.  
  105.